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C ALL VAX-11 CONVERT 1$-s6 -1 241: AX-11 Bliss-32 V4.0-74 Pa 
8366 n Taithiee gek ſtzaſelt zueci a 38 
3 1 i++ 
; g | i Facility: © VAX=11 CONVERT 
; 5 i Abstract: CONVERT sharable image callable routines 
; 1 i Contents: 
3 1! PASS_FILES 
3 1! PASS OPTIONS 
>. 1! CONVERT 
; 6 1! ADD_KEY 
3; 6 } ! RECCAIM 
; 6 ! UNDOWN 
3 aa 1! CONDI TION_HANDLER 
: 8 COPY_DESC 
: 2 : Environment: 
3 $3 } VAX/VMS Operating System 
: 51 1 i-- 
| & 13 
: 3 ; Author: Keith B Thompson Creation date: August-1981 
; 1 
; ; 1 j Modified by: 
: 59 1! v03-013 swT0185 Jin Teague 2=Jul-1984 
3 69 1! Add Late PUT_RECORD call to empty the STM buffer 
; 8 for FIN ==> STM conversions. 
; 8 1! v03-012 RASO0264 Ron Schaefer 8-Mar-1984 
; 664 1! Improve the condition handler so that it will not 
: 65 : \ : rundown everything unless there will be no return. 
; 8 11 v03-011 RAS0260 Ron Schaeter 2-Mar-1984 
3 o8 ’ . Improve performance of RASO250 by enabling open by NAM. 
: 70 31 i v03-010 RASO250 Ron Schaefer 23-Feb-1984 
; 7 01! Add call to LIBSFIND_FILE_END during cleanup. 
3 g 39 Check for null parameters before using them. 
: 7% ig 1: v03-009 RASO211 Ron Schaefer 8-Nov-1983 
3 8 a ! } Make sure input file is closed in RUNDOWN. 
14 31 i v03-008 KBT0540 Keith 8. Thompson 9-Jun-1983 
: 8 — Fix some bugs 
; 8 11 v03-007 KBT0441 Keith B. Thompson 30-Dec-1982 
3 1 ! ; Add conv$add_key routine 
; : — 11 v03-006 KBT0436 Keith B. Thompson 16-Dec-1982 
: ¢ } : Use str$analyze_sdesc to check descriptors 
; 5 1: v03-005 KB10397 Keith 8. Thompson 3-Nov-1982 
3 1! Fix the check for statistics block in reclaim 
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Set defered write on output file 


3 1! 

3 1! v03-004 KBT0390 Keith 6. Thenpeen 8-0c t-1982 
: } Add support for prolgue 3 sidrs in reclaim 

3 Q 1/ v03-003 kB10371 Keith 8. Thompson 19-0¢t-1982 
.? = 1! Copy the user strings to local storage and add flags 
; 38 parameter to user call interface 

; 36 5 1i V03-002 KBT0345 Keith 8. Thompson 4=0ct-1982 
: : } Use new definitions of the Linkages 

3 $3 : : v03-001 ithe Keith Thompson 23-Mar-1982 
; 101 1 i 

: 102 1! 
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CONVSCALL VAX=11 COMVERT 18-98 =1984 23:41:0 AX-11 Bliss-32 V4.0-74 p 
vou : 12=800=1 382 93:94:05 CONV. SRCJCONVCALL B32; 29? 33 
: 161 159 1 CONVSAB_IN_NAM SNAM_DECL, 
; 16¢ 160 1 FONVSAB_IN-FAB SFAB-DECL, 
; 16 161 1 CONVS$AB-IN-RAB SRABDECL 
> 164 16¢ 1 CON\'SAB-OUT_XABSUM SXABSUM_DECL, 
: 165 1635 1 CONVS.4B_OUT_NAM SNAM_DECL, 
: 166 164 1 CONV$AB_OUT-FAB SFAB“DECL, 
: 16 165 1 CONVSAB_OUT-RAB $RAB-DECL, 
: 168 166 1 CONVSAB_RFA_FAB SFAB-DECL, 
; 189 16 i CONVSAB_RFA_RAB SRAB-DECL, 
: 171 0169 1 CONV$GL_ADD_DELE_KEY : LONG, 
; 1% 1 Q 1 CONVSGL-STM—BUF , 
: 17 171 1 CONVSGL-STM_REC_LEN, | 
3 1% 93 CONVSGW-OUT-REC_S1Z : SIGNED WORD; 
: 126 0174 1 LITERAL 
: 17 93 1 COUNTERS = 4 ' Number of counters 
: 178 176 1 OPTIONS = 19; i Number of options 
: 188 8138 1 OWN 
; 181 O79 ! Exception fab for opens and closes 
; 188 O18 EXC_FAB : SFAB_DECL, 
; 13? oi8s : } Call sequence counter 
; 187 0185 SEQUENCE : BYTE INITIAL( 0), 
: 1% O18? ' : The Option Flags: 
: 191 0189 1 OPTION_BLOCK =: VECTOR C OPTIONS + 1,LONG J, ! ALL of the options 
3 136 Biot ; ! plus one for the size 
: 8 3 The counters 
: 196 938 1 COUNT_BLOCK : VECTOR C COUNTERS + 1,LONG J; ! ALL of the counters 
1 BET an 
: 199 199 1 OPTION_COUNT = OPTION BLOCK f 01: LONG, ! Option count 
3 $00 38 COUNT_COUNT = COUNT_BLOCK 0 J] : LONG; ! Counters count 
; 0¢ 90 GLOBAL BIND 
: 04 o § 1 ! The order of these options define the option block for the call 
; 205 ? ! ‘ interface. DO NOT change them. 
: O 5 1 CONVSGL_CREATE = OPTION_BLOCK { 1]: LONG, ! CREATE 
3 208 1 CONVSGL-SHARE = OPTION“BLOCK : : LONG, ! SHARE 
: 209 07 1 CONVSGL-FAST = OPTION-BLOCK : LONG, ! FAST 
: 210 08 1 CONVSGL-MERGE = OPTION“BLOCK £ 4]: LONG, MERGE 
+ 211 09 1 CONVSGL-APPEND = OPTION“BLOCK £ 5 ] : LONG, - ! APPEND 
: ig 10 1 CONV$GL"SORT = OPTION“BLOCK 8 : LONG, | SOR 
: 21 i1 i ONVSGL“WORK_F = OPTION“BLOCK : LONG, ! WORK_FILES 
+ 214 1g 1 ¢ V$GL-KEY = OPTION-BLOCK : LONG, ! KEY 
+ 215 131 CONVS$GL—PA = OPTION-BLOCK : LONG, | PAD_RECORDS 
: 1 14 $1 CONVSGL-PAD_CHAR= OPTION“BLOCK [ 1 : LONG, | Pad"character 
: 21 15 1 CONVSGL"TRURCATE= OPTION“BLOCK [ 1 : LONG, ! TRUNCATE 
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74 
ep-1 CONV.SRCIJCONVCALL .B32; (4 
ZSBTTL ‘PASS FILES’ 


4 4 
4g i GLOBAL ROUTINE CONVSPASS_FILES = 
d te yi 

8 a3 

1 File name passing routine 

§ Calling Sequence: 

5 Initial Call: 

3 CONVSPASS_FILES( in_file_desc, 

8 ut_file_desc 
59 -fdl_file_desc 
60 ,exc_file_desc 
8 eflags] ) 
es Additional Calls: 

65 CONVSPASS_FILES( in_file_descl,flags] ) 
ef Input Parameters: 


in_file_desc - Address of a file descriptor used as the input file name 
out_filé_desc — Address of a file descriptor used as the output file name 
fdl_file.desc = ( Optional ) Address of a string Genet iptor to be used 

as the file name of the fdl file 
exc_file.desc = ( Optional ) Address of a string descriptor to be used 


gocecece NINN SN NSP PAA AAA AAA MMIII 
wm SO POS NONE UNIO oe WO AON oo te IO oo Dee 
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' Functional Description: 
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8 
74 8 as the file name of the exceptions file 
a 8 flags - ( Optional ) Flags longword 
77 8 Implicit Inputs: 
a none 
80 5 Output Parameters: 
3 none 
ag Implicit Outputs: 
Be none 
a6 Routine Value: 
4 $S$_NORMAL or 

CONVS_ORDER 
90 CONVS_NARG 
8 3 CONVS_INP_FILES 
38 Routines Called: 
94 91 none 
5 3 

+ 9 Side Effects: 
9 94 none 
38 95 
00 39 
01 98 BEGIN | 
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BUILTIN 
ACTUALCOUNT 
ACTUALPARAMETER, 
NULLPARAME TER; 


! Set up the condition handler to make sure files are closed and memory 
: released 


LIBSESTABLISH( CONDITION_HANDLER ); 
H See what kind of call it is 
IF .SEQUENCE EQLU 0 
THEN 
BEGIN 
LOCAL 
BYTES 
VM_POINTER; 
} The first call needs at least two arguments and no more then 5 
*8 ( ACTUALCOUNT() LSSU 2 ) OR ( ACTUALCOUNT() GTRU 5 ) 
RETURN CONVS_NARG; 
: Clear the flags 
CONVSAB_FLAGS = _CLEAR; 
: If the user specified a flags parameter stuff it 
A cena EQLU 5 
CONVSAB_FLAGS C CONVSW_USER J] = .ACTUALPARAMETER(S); 
: Allocate memory for all of the name block buffers 
BYTES = 2 * ( ESA_BUF_SIZ + RSA_BUF_SIZ ); 
VM_POINTER = CONVSSGET_VM ( .BYTES ); 
: Init the input RMS blocks 


The FAB 
$FAB_INIT ( FAB = CONVSAB_IN_FAB, 

FAC = <BRO,GET>, 

FOP = <NAM.SQO>, 

NAM = CONV$AB_IN_NAM 

XAB = CONVSAB~IN-XABSUM ); 
: The RAB 


SRAB_INIT ( RAB = CONVSAB_IN_RAB, 
FAB = CONVSAB_IN~FAB, 


CONV. SRCJCONVCALL.B 
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ROP = RAH ); 


: The name block 
SNAM_INIT ( NAN 


mi 

wn 
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: The xabs 


SXABSUM_INIT ( XAB = = CONVSAB_IN_XABSUM, 


ONVSAB_IN-XABFHC ); 


SXABFHC_INIT ( —9 = = SONVEAB- IN_XABFHC, 


Get the next block of memory 
VM_POINTER = .VM_POINTER + ( ESA_BUF_SIZ + RSA_BUF_SIZ ); 
; Init the output RMS blocks 


: The FAB 

SFAB_INIT ( FAB = 
FAC 
FOP 
NAM 
XAB 


The RAB 
SRAB_INIT ( RAB = 
FAB 


CONVSAB_OUT FAB, 
<DFU.NAM,OFP, * ta0>, 
CONV$AB_OUT_NAM 
CONVSAB~OUT~KABSUM ); 


CONVSAB_OUT 283 
= a “OUT "FAB, 


ROP = WBH ) 


The name block 
SNAM_INIT ( NAN 


m 

wn” 

wn 
une nn tw 


The xab 


$XABSUM_INIT ( XAB = CONVSAB_OUT_XABSUM, 
NXT = ); 


: Clear the count of input files 
CONVSGL_FILE_COUNT = 0; 
: The second argument is the output file name 
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c ALL VAX=11 CONVERT 18-5 @p-1984 23:4 AX-11 Bliss-32 V4. Page 10) 
PASS_FILES 1h- 300-1382 $3: 13:23 CONV.S — — — 
: 4 i JF _NULLPARAMETER(2) 
; 41 i ELgeRETURN CONVS_ILL_VALUE 
; 8 CONVSAR_OUT_FILE_NAM = COPY_DESC( ACTUALPARAMETER( 2) ); 
; 4 g 1 If there is a 3rd argument then it's the fdl file descriptor 
3 426 if NOT NULLPARAMETER(3) 
3 ? 5 § THEN 
; 2 ; : } Copy the descriptor 
; 4 5 — CONVSAR_FDL_FILE_NAM = COPY_DESC( ACTUALPARAMETER( 3) ); 
: 431 3 
3 ? § ; : If there is a 4th argument then it's the exception file descriptor 
; 434 1 IF NOT NULLPARAMETER(4) 
; 4 § 4 BEGIN 
3 6 5 4 LOCAL 
> 439 4 EXC _NAM_PTR 
: 440 4 EXCTFILE_NAM : REF DESC_BLK; 
; * EXC_FILE_NAM = COPY_DESC( ACTUALPARAMETER( 4 ) ); 
; 44g pees 2 Allocate memory for name block and buffers 
; 446 beds 4 EXC_NAM_PTR = CONVSSGET_VM( NAMSK_BLN + ESA_BUF_SIZ + RSA_BUF_SIZ ); 
; 448 Sieg 4 1 Init the RMS blocks 
: 430 ‘3 4 i The FAB 
3 3883 SFABLINIT ( FAB = EXC FAB, 
3 45 P0450 4 ONM = '.ERC’ 
: 454 P0451 4 FNS = .EXC_FILE_NAM C DSCS$W_LENGTH J 
; 455 P 3 4 FNA = .EXC“FILE-NAM C DSCSA_POINTER 3, 
i 456 P0453 4 FOP = <NAM>SQO,TEF>, 
> 45 P 0454 4 NAM = .EXC_NAM_PTR, 
: 438 P0455 4 RFM = VAR 
: 439 7 ‘ RAT = CR §; 
; 461 38 4 t The RAB 
; 46 P 0460 4 $RAB_INIT ( RAB = CONVSAB_EXC_RAB, 
3 464 P 61 4 FAB = EXC_FAB; 
: 465 4 ROP = WBH™); 
; 46? é 2 : The name block 
; 469 p 8 SNAM_INIT ( NAM = .EXC_NAM_PTR, 
3 470 P 0467 4 ESA = .EXC7NAM-PTR + NAMSK_BLN, 
> 471 P 08 4 ESS = ESA BUF 
> 472 P 4 RSA = .EXC_ 


i | 
NAR_PTR + NAMSK_BLN + ESA_BUF_SIZ, 
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13 
VAX=-11 CONVERT —* 4 241: AX-11 Bliss-32 V4.0-74 Pa 11 
PASS_FILES 127808-] 382 93:94:95 YOONY SRCITEONVEALL -bSe. nF (4) 
7 RSS = RSA_BUF_SIZ ) | 
f END; 
ee : We are a success so set up for the next call 
6 SEQUENCE = 1 
4: END 
4 : If not the first call it better be the second call to pass files 
: ELSE IF .SEQUENCE EQLU 1 
THEN 
: BEGIN 
: More calls to pass_files means only one or two arguments 
88 iF ACTUALCOUNT() NEQU 1 
8 THEN 
4 if ACTUALCOUNT() EQLU 2 
3 CONVSAB_FLAGS C CONVSW_USER J] = .ACTUALPARAMETER(2) 
95 RETURN CONV$_NARG 
3 eo 
99 If we are here we were called in the wrong order 
030) ELSE 
03 § RETURN CONVS$_ORDER; 
304 If there are to many input files exit 
306 iF .CONVSGL_FILE_COUNT GTR 9 
50 THEN 
208 RETURN CONVS$_INP_FILES; 
219 : The first argument is always the input file 
318 if NULLPARAMETER(1) 
213 ne RETURN CONVS_ILL_VALUE 
316 CONVSAL_IN_FILE_NAM C_.CONVSGL_FILE_ COUNT ) = 
3} COPY_DESC( ACTUALPARAMETER(T) ); 
313 CONVSGL_FILE_COUNT = .CONVSGL_FILE_COUNT + 1; 
iH RETURN SS$_NORMAL 
5 5 END; 
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13 
yb-ep-1964 25:41:04 yantt liss-32 v4.0274 
-IDENT \v04-000\ 
-PSECT _CONVSPLIT,NOWRT,NOEXE, SHR, PIC,2 
43 58 45 2E OQ0000 P.AAA: .ASCII \.EXC\ 

-PSECT _CONVSOWN,NOEXE, PIC,2 

00 96098 Er COENCELee . 

$008) OPTION piste’ 80 


LK 
Q00A4 COUNT BLOCK: 


LK 20 
000B8 STATISTICS BLOCK: 
-BCKB 


OPTION COUNT= 
COUNT_COUNT= 
CONVSGL.. =fhEATESs 


ONV 
CONVSGL—PROLOG== 


20 
OPTION BLOCK 


COUNT BLOCK 
OPTION_BLOCK+4 
OPTION_BLOCK+8 
OPTION_BLOCK+12 
2236 
OPTION_BLOCK+ 
OPTION_BLOCK+ 
OPTION_BLOCK+ § 
OPTION_BLOCK+ 
OPTION_BLOCK+ $ 
= OPTION_BLOCK+4 
== OPTION _BLOCK+44 
OPTION_BLOCK+4 
ot Ee: 
OPTION_BLOCK+ 
OPTION_BLOCK+6 
=  OPTION_BLOCK+64 
ot a De 
OPTION_BLOCK+ 
OPTION ~BLOCK+? 


CONVSGL"FILE COUNT==COUNT -BLOCK+4 
CONVSGL-RECORD_COUNT== 


CONVSGL_EXCEPT_C 


COUNT _BLOCK+8 
OUNT== 
COUNT -BLOCK+12 


CONVSGL_VALID_COUNT== 


RECLSGL_BUCKET_C 


COUNT _BLOCK+16 
OUNT== 
STATISTICS _BLOCK+4 


RECLSGL_DATA 1 tae ~BLOCK+8 


RECLSGL~INDER_C 
SRMS_PTR= 
EXT 


*EXTRN 
*EXTRN 


'“SUATISTICS_sLocKst2 


EXC 
CONVERTS FACILI ITy 

CONVS_FAO_MAX, CONVS_BADBLK 

CONV ~bancocit, CONVS “BADSORT 
CONVS~CONFQUAL, CONVS~CREATEDSTM 
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XTRN CONV _CREA_ERR, cONVS_ DELPRI 
XTRN ONY “DUP CONVS EXT 

XTRN CON VS-FATALEX * conys- FILLIM 
XTRN CONVS_IDX_LIM, “coh ILL_KEY 
XTRN CONV mint LECVALUE 

XTRN CONV$-INP-FILES 

XTRN CONV =f NSUIRAER 

XTRN CONV “INVBKT, CONVS$_KEY 

XTRN CONVS-KEYREF, CONVS-LOADIDX 

XTRN CONV =NARG. EonvS_NT 

XTRN CONVS$-NOKEY, CONVS_NOTIDX 

XTRN CONV “NoTses, conys 

XTRN CONV$"ORDER, CONVS OPENEXC 

XTRN CONVS_OPENIN, CONVS OPENOUT 

XTRN CONV$-PAD, C pup 

XTRN CONVS-PROERR, CORVS PROL_WRT 
XTRN CONVS~READERR, gONVS_ RSK 

XTRN CONV$-RSZ, CONVS_RTL~ 

XTRN CONV$-RTS. CONV 

XTRN CONVS_UDF_68KS, CONVS_UDF BLK 
XTRN CONVS-VFC> CONV 

XTRN LIBSESTABLISH, LIBSF IND FILE_END 
XTRN LIB$SIG_TO_RET, STRSANACYZE_SDESC_R1 
XTRN LONVSSCREATES BU FER 

XTRN CONVESCONVERT. CONVSSEND OF _FILE 
XTRN CONVSSFREE_VM CONVSSFREE_ TEMP_VM 


XTRN CONVSSGET_REXf 
XTRN CONVSSGET“VA CONVSSOPEN_ INPUT 


XTRN RECLSSOPER FILE 
XTRN RECLSSALLOCATE BUFFERS 
XTRN RECLSSSCAN_DATA LEVEL 
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PASS_FILES 


000000006 


00006 


tnd 


ORO r 


006 
0006 
00006 
86 
A 
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0008 


00006 


8 G CF 
& G CF 
3 G CF 
CF 

000v sf 

8 AB a8 

02 
02 o§ 
02 

05 66 
00006 CF 

05 a 
6 

gf 14 C 
0 0140 F 
SE 00006 
56 8 
6E 00 
69 

69 5003 F 
AY — f 
Ao 4 F 
Ag 2 
A? 00006 CF 
6A 

00 


mon Man MeSSees Mann Mo 


99896 ef 
4401 F 
0200 


“yt 
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at f 
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MOOOODOD WwOIOWOIWD—wOO—OW—OWO7TOWOW0wVd 
AMMOSSO LPM WIP @ MMMM 


MR 0OWOD 


AMOS 
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18-se 
14-Se 


— — 
FOO ~T 


o Duo OS > 


oo 
x 
oDa2om 


4$: 


be 12:15:83 


«PSECT 
eENTRY 


AX-11 Bliss-32 V4.0-74 
CONV SRETCONYEALE 5004 
_CONVSCODE ,NOWRT, SHR, PIC,2 
VSPASS_F S, R2,R35,R4,R R6,R7, RE, 
CONN ss. ILES, Save R2,R3 5,R6,R7,R8 


SRAS_PTR, R11 
VSAB_IN_NAM, R10 


ILE COUNT, R8 
HARDLER 
STABLISH 

RO 


ao — 
men 


CONVSSGET_VM 
#4, SP 
50. 


VM_POINTER 
(SP), #0, #80, S$RMS_PTR 
#20483, SRMS_PTR 
* arti SRMS_PTR+4 
#6, SRMS_PTR+22 
#2, SRMS_PTR+3 
CONVS$AB_IN_XABSUM, SRMS_PTR+36 
CONVSAB IN“NAM, SRMS_PTR+40 
, (SPY, #0, #68, SRMS_PTR 


#17409, SRMS_PTR 
#512, $RMS_PTR+4 
CONV$AB_IN“FAB, $RMS_PTR+60 
#0, (SPT, BO, #96, SRMS_PTR 


#24578, $RMS_PTR 
Sens PTR+2 
SRMS _PTR+4 


#3094, SRMS_PTR 
cONVSAB IN_RABFHC, SRMS_PTR+4 
#0, (SPT, FO, #44, SRMS-PTR 


#11293, SRMS_PTR 
160 R6S, VM_POINTER 
#0, (SPS, #0, #80, SRMS_PTR 


0356 


0364 


voe-000 = séPASSJFALES iedeectaue tuutz Webel RE esadeatt-0534% Poe 


c : 
F MOVW #20483, SRMS_PTR : 
| ee es ‘fm : 
6 AB 4 F FA nove ie SRMS pr ; 
4, iB G CF 9E MOVAB Diving. ets “iAgsun SRMS_PTR+36 : 
8 AB tits F MOV EON AB“OUT"NAM, SRMS_PTR+40 : 
0044 8F 00 6E = 06 Op ; F MOVC bts #0, #68, SAAS. PTR ; 0391 
‘ * 9, SRMS_PTR : 
ge cr AAD BE go OOH i FLA? das tnt : 
0G CF MOV T"FAB, SRMS_PTR+60 : 
0060 8F 00 6 09 E g moves CONvshB (SPY, vat #56, SRAS_PTR ; 0400 
00G CF hi . bf 9 MOVW #24578, $RMS_PTR : 
0006 CF F MOVB #80, SRMS PTR+2 : 
000G CF Ab 4 MOVAB 80(R6), SRMS PTR+4 : 
000G CF F 6 0149 MOVB #80, SRMS PTR+ : 
a8 FP Se, HM rene : 
oc 00 * bE * 2c ie movcS #0, (SPY, #0, ED SRMS_PTR : 0405 
VW #3094, SRMS_PTR F 
sepa sedans $8 B? 183 itt CONVSGL_FILE_COUNT + 0409 
— gies Se, Pe * 
110 if O16F 5$: BRW : 
08 AC D3 0172 6$: TSTL (AP) ; 
F8 1 O15 BEQL 3 
50 hv BBB BELL. EUe gc ees 
0 dO 0017 MOVL RO, stony Sar _OUT_FILE_NAM F 
—— — Eis aha, i ovat 
oc te 38 a Beat ica 
50 oc AC 18D MOVL  12(AP), RO + 0426 
Se Ee , 
— be ¢ a 199 7$: cMPBCtié~CA*Y~Cyw;:Cé] i 3 0431 
oid HF 8438 eal | : 
10 ac 6 Hi 3 TSTL 1ofap) F 
F 1A4 BEQL 8$ : 
50 10 Ac p 1A6 MOVL (AP), RO + 0439 
00 Ov 1AA BSBW = COPY_DE F 
7 1 VL ng Exc IAgt _NAM ; 
Hh 0100 _8F ; 1 mOvVZwL #256 ; 0443 
« “RABI Bb, oie . : 
MOV * EXC_NAM_PTR : 
0050 «s«&F 00 56 * ze moves > (SPY, #0, #80, SRMS_PTR ; 0456 
FFS8 0 F BO 001C MOVW * sors PTR ; 
FF5C f 1100008 F § ick ROL 5 a7 SBMS _PTR+4 : 
FF SE ; 0202 8F B80 0010D MOVW a8t4" nas Pt ——3 
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A 56 DO 00164 MOVL XC_NAM_PTR, SRMS_PTR+40 : 
A 4 9 6 168 MOVL CEC LFILE NAM), SRMS_PTR+44 : 
8 A 0000° F iE MOVAB PP. RMS PTR : 
[ee jf MOVE  (EXC_FILE_NAM), SRMS_PTR+S2 : 
D oA 4 iF MOVE. #4, SRMS_PTR+5$ : 

0044 8F 00 6E — t MOVCS #0, (SP)> #0, #68, SRMS_PTR t 0462 
G CF 4 ° er 0 p MOVW #17409, SRMS_PTR : 
cr a : 

0060 &F 00 E : C OO21A movCS #0,~(SPS, #0,7#96, (EXC_NAM_PTR) + 0470 

60 F 3 MOVW #24578, (EXC_NAM_PTR) : 
eae g F 88 MOVB #80 etext NAM_PTR) : 
4 A 008 cs 3 MOVAB 1 giR ), 4TEXC"NAM PTR) : 
OA A6 F MOVB #8 Votexe NAR_PTR) : 
0 ag 60 Ab 3 MOVAB 96(R6), 12(EXC_RAM_PTR) : 
AS OA H 90 0085 10S: nove fy SEQUENCE + 0476 
01 0 91 00262 118:  CMPB RO, #1 + 0482 
1A 12 0024 BNEQ 1 : 
01 6C 91 0024 CMPB s«CAP), #1 + 0488 
1D 13 O0246A BEQL : 
02 6C 91 0024¢ CMPB sé), #2 + 0491 
08 if O24F BNEQ les : 
00006 CF 08 BC 80 0 3 nov a8 (AP). CONVSAB_FLAGS + 0493 
2 VL ’ ° 3 
50 000000006 8F 0 0 39 12$ MOV #CONVS_NARG, RO 0495 
50 000000006 8F 9 61 13$: MOVL #CONVS_ORDER, RO + 0502 
52 8 D0 9 69 148:  MOVL  CONVSGL_FILE_COUNT, R2 + 0506 
09 D1 0026C CMPL = R2,, 9 : 
9 15 00 of BLEG Ss F 
50 000000006 8&F i 0 4 MOVL #CONVS_INP_FILES, RO + 0508 
6C 0279 15$:  TSTB (AP) + 0512 
05 1 7B BEQL 6 : 
06 Ac D 7D TSTL 4(AP) ; 
6 1 BNEQ =17$ : 
50 000000006 8F pd 16$: MOVL #CONV$_ILL_VALUE, RO : 0514 
50 04 ac p A17$:  MOVL 4(AP), RO + 0517 
0096v BSBW copy bese F 
00006CF42 d MOVL RO, CONVSAL_IN FILE_NAMCR2] : 
68 D6 97 INCL  CONVSGL_FILE_COUNT : 0519 
50 1 p 99 MOVL #1, RO ; 0521 
4 0029C RET : 0523 


3; Routine Size: 669 bytes, Routine Base: _CONVSCODE + 0000 
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VAX=11 CONVERT 18-6 -1984 23: 
PASS_OPTIONS 12-805=1 38 3: 


| _ prologue 

flags - ( Optional ) flags longword 
Implicit Inputs: 

none 
Output Parameters: 

none 
Implicit Outputs: 

none 


Routine Value: 
SSSNORMAL or error code 
Routines Called: 


SOPEN 
CONVSSRMS_OPEN_ERROR - By RMS as an AST 
SCONNECT 


Side Effects: 
Opens the exception file if specified 


NULLPARAME TER; 
: Set up condition handler 
LIBSESTABLISH ( CONDITION_HANDLER ); 
Check the order of the calls 
IF .SEQUENCE NEQ 1 

RETURN CONVS_ORDER; 
: Check the number of arguments 
IF ACTWALCOUNT() GTRU 2 

RETURN CONVS_NARG; 
: Were there user flags? 
IF ACTUALCOUNT() EQLU 2 
THEN 
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PASS. OPTIONS 1h-8ep-1 v — 


i 19 ( 
7 CONV. SRCJCONVCALL .B32; ) 


5 
CONVSAB_FLAGS C CONVSW_USER ] = .ACTUALPARAMETER(2); 
Initialize the counter block 


COUNT_COUNT = COUNTERS; 


Gace 
O00 


! Clear the counters (don't clear 2 (file_count) since that has 
been set by pass_files) 


NCR 1 FROM 2 TO COUNTERS BY 1 
COUNT_BLOCK C .1 J = _CLEAR; 
Initialize the option block 
OPTION_COUNT = OPTIONS; 
First clear the entire block since most of the defaults are off 
INCR I FROM 1 TO OPTIONS BY 1 
OPTION_BLOCK C .I J = _CLEAR; 


PRAAAAMAAAAD RE ee ee 


SSPE SESS LAST OD REE ERE RS 
222222222 
82888888888888 
⏑—⏑—⏑—⏑ ⏑ ES BEE PEPE EE 


=O OONAMES WN OC WDNAOULE Uy. 


; 066 

3 8 Now set the defaults 

: 667 066 CONVSGL_CREATE = _SET; 

3; 668 0664 CONVSGL_FAST = SET; 

> 669 0665 CONVS$GL~SORT = “SET: 

3 —9 8 CONVSGL_—WORK_F = 2; 

3 67 peek : If there was an argument then use it 

: 674 70 if NOT NULLPARAMETER(1) 

2 

> 677 be? 

; 678 pore LOCAL USER_BLOCK : REF VECTOR C ,LONG J; 
; 680 67 USER_BLOCK = ACTUALPARAMETER( 1 ); 

: O86 0678 ! Check the size of the block 

; 68 Bere ! 

3 ons 0 IF .USER_BLOCK C 0 J GTRU OPTIONS 

; 686 0686 RETURN CONV$_BADBLK; 

3; 688 ! If the user block specified a prologue version then set a flag to 
§ 8 5 use it 

; 691 if ;USER_BLOCK C 0 ) EQLU OPTIONS 

; os 89 CONVSAB_FLAGS C CONVSV_PROLOG } = _SET; 

; 8 i : Copy the option block specified by the user into ours 
; 38 38 INCR 1 FROM 1 TO .USER_BLOCK C 0 J 

; 698 94 dO 
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14 
15-Sep-1984 T3itbigr — ECGnvseedeonveale-e32; 


14-Sep-1984 7 CONV. 

OPTION. BLOCK C .1 J] = .USER_BLOCK C .1 J 

END; 

Check for some switch conflicts 

/FOL/NOCREATE 

/EDL/APPEND 
or combinations of the above is wrong 

F .CONVSGL_FDL AND ( ( NOT .CONVSGL_CREATE ) OR 


-CONVSGL_MERGE OR 
-CONVSGL_APPEND ) 


THEN 
RETURN CONVS_CONF QUAL ; 


t_ /MERGE/ APPEND 
if ~CONVSGL_MERGE AND .CONVSGL_APPEND 
RETURN CONV$_CONF QUAL; 


' Lets set the switches strait, NOTE: The order of this sets the presses 
of the qualifiers, do not change it 


The merge option is really /NOCREATE/NOFAST/NOSORT apppend is simmular 


' 
i 
i 
i 
: 
IF 


gf OR, FEN OR .CONVSGL_APPEND 
BEGIN 
CONVSGL_CREATE = _CLEAR; 
CONVSGL_FAST = CLEAR; 
seeveG sent = CLEAR 


! If we create a file without definition then the files are duplicate 
therefore index files will be in order (one input file only) 


iF .CONVSGL_CREATE AND ( NOT .CONVSGL_FDL ) AND 
* ( .CONVSGL_FILE_COUNT EQLU 1 ) 


N 
CONVSGL_SORT = CLEAR; 
: If we open the input file shared we cannot sort it 
IF .CONV$GL_SHARE 
THEN 
CONVSGL_SORT = CLEAR; 
Create exc files if neceassary 


1 
i 
i If the EXCEPTION Option was specified THEN Create and Connect 
the Exception File. 


if .CONVSGL_EXC 


— — 


cove ALL 
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VAX=11 CONVERT 15-ben-1984 #3:44:93 


AX-11 Bliss-32 Mee cto 
CONV.SRCICONVCALL .B32; 


SYSSCREATE, SYSSCONNECT 


CONVSPASS_OPTIONS, Save R2 
CONVSGL_CREATE, Re 
CONDITION HANDLER 

#1, LIBSESTABLISH 
SEQUENCE, #1 


#CONVS_ORDER, RO 
(AP), #2 
#CONVS_NARG, RO 


3 
38 cap) - CONVSAB_FLAGS 
#4, COUNT_COUNT 


COUNT_BLOCKLI) 
a, I 
#19, OPTION_COUNT 


"i, 1 

OFf10N_8 CKCI) 

Haves * 
CONVSGL “FAST 


ae 
#1, CONVSGL"SORT 
#2, CONVSGL“WORK_F 


PASS_OPTIONS 
H 7 THEN 
: i f i BEGIN 
3 735 — Signal an OPENEXC error on failure 
3 ree , 3 EXC_FAB C FABSL_CTX J = CONVS_OPENEXC; 
; 76 7 § ! Create it 
3: 764 760 ! 
: oe? re SCREATE ( FAB=EXC_FAB,ERR=CONVSSRMS_OPEN_ERROR ); 
3 re rer } Say that a exception file is open 
; g i 165 CONVSAB_FLAGS C CONVSV_EXC J = _SET; 
; ue rey Connect the stream 
; 73 af%6 4 SCONNECT ( RAB=CONVSAB_EXC_RAB,ERR=CONVSSRMS_OPEN_ERROR ) 
: 775 771 END; 
> oa 93 
s 1 077 SEQUENCE = .SEQUENCE + 1; 
s 778 4 
; 779 775 RETURN CONVS$_SUCCESS 
; 780 843 
3; 781 077 END; 
~EXTRN 
0004 00000 ~ENTRY 
52 0000" CF 9€ 0006 MOVAB 
0000V ff 9F 0000 PUSH 
000000006 00 1 FB Bete CALLS 
01 F8 a 1 001 CMPB 
1 84 BEQL 
50 00000000G 8F 00 0001 MOVL 
8 001F RET 
02 4 1 8 18: CMPB 
18 0 BLEQU 
50 00000000G 8&F b 8 MOVL 
4 C RET 
06 8 D 2$: BNEQ 
0000G CF 08 ¢ B — MOVW 
4C 5 i) 3 3$: MOVL 
5 ; Dd MOVL 
4C A240 D 4$: CLRAL 
F8 5 % F 6 AOBLEQ 
FC A 3 OD 4 MOVL 
5 9 D 48 MOVL 
FC A2 04 4B 5$ CLAL 
F8 5 1 F Ff AOBLEQ 
6 0 ; MOVL 
98 A 1 OD MOVL 
4 4 1 OD A MOVL 
18 4 20D E MOVL 


14 
c ALL VAX=11 CONVERT 4 1954 23:41:0 AX-11 Bliss-32 V4.0-74 p 2 
vive PASS_OPTIONS 12-808-138e 93:74:23 CONV SHCIEONTCALL  B3e. — (8 
¢ TSTB ss CAP?) | : 0670 
st ? BEQL 108 : 
04 AC : TSTL (AP) : 
2 BEQL 10$ : 
51 04 AC D MOVL 4(AP), USER_BLOCK : 0676 
1 ‘ p F CHPL (USER_BLOCKY, #19 : 
50 000000006 &F 5 ie MOVL § #CONV$_BADBLK, RO + 0682 
6 43 oo0re 6s BNeQ 7S + 0687 
. NV FL + 3 
00006 CF 40 «BF af 7 BISB2 #64, CONVSAB_FLAGS+2 9 
34663 ats fa 
FC A240 6140 D 8s VL. (USER_BLOCK)C1), OPTION BLOCKLI] + 0695 
F6 50 61 F $ AOBLEQ (USERBLOCK), ; $ : 
08 40 A2 € 92 10$ BLBC VSGL_FDL, 11$ + 0707 
1 62 €9 BLBC VSGL-CREATE, 12$ : 
o¢ 0c Ad €E 9 BLBS §§ CONVSGL-MERGE, 12$ + 0708 
§ 10 Ad €E8 0009D BLBS § CONVS$GL-APPEND, les + 0709 
19 o¢ Ao € 004} 11$ BLBC CONVSGL"“MERGE, 14 + 0715 
Q 1 E9 O00A5 BLBC §§ CONVSGL-APPEND, 13$ : 
0 000000006 8F Bd o008 12$: MOVL #CONVS_CONFQUAL, RO + 0717 
04 oC A a B1 13$:  BLBS  CONVSGL_MERGE, 15$ + 0724 
08 10 Ad € 0083 14$: BLBC  CONVSGL-APPEND, 168 : 
62 04 00089 15$:  CLRL  CONVSGL“CREATE : 0727 
08 A2 04 CLRL  CONVSGLFAST : 0728 
14 A2 D4 CLRL  CONVSGL~SORT : 0729 
0D 62 €9 BLBC CONVSGL“CREATE, 17S : 0735 
09 40 Ad EB BLBS § CONVSGL“FDL, 1 ; 
01 50 A J FONVSGL “FILE _COUNT, #1 : 0736 
16 A2 D4 CLRL  CONVSGL_SORT : 07 
03 04 Ad €9 BLBC §CONVSGL“SHARE, 18$ : 074 
14 Ad 04 CLRL  CONVS$GL~SOR + 0744 
2A 44 Ad €9 BLBC CONVSGL Exc : 0751 
CO A2 000000006 8F BO VL #CONV$_OPENEXC, EXC_FAB+24 : 0757 
00006 CF i PUSHAB CONVSSRMS_OPEN_ERROR : 0761 
000000006 00 65 9 CALL #2.” SYSSCREATE : 
00006 CF 04 : BIS62 #4. CONVSAB FLAGS+2 + 0765 
$888 fF Mowe favre ang a 
000000006 00 § F CALLS ioe SYSSCONRECT : 
FB Ae 9 INCB SEQUENCE : 077 
50 0 p MOVL #1, RO : 077 
4 RET : 077 


: Routine Size: 269 bytes, Routine Base: _CONVSCODE + 0290 


14 
COWECALL YAK CONVERT 1B-Sep-1964 25:41:06 yanatt Bl fe5-52 4.027% Page 


f 3 7 ZSBTTL ‘CONVERT’ 
7 GLOBAL ROUTINE CONVSCONVERT = 
5 f i++ 
g g ; Functional Description: 
789 i : Calling Sequence: 
738 f CONVSCONVERT( Ccounter_blockIC, flags] ) 
79 7 Input P t 
—8 — nput Parameters: 
795 7 
3 Structure of counter block: 
799 7% Yi fae 2------------------ 
9 736 counter_block -_ number of counters ' 


number of files proc. ' 


os 
S3ss 


: 1 
3 1 
; 1! 
: 1 
3 1 
3 1 
; 1! 
* ii 
+4 ii 
; 1} 
; 1: 
; 1} 
3 : counter_block = ( Optional ) Address of counter block 
3 1} 
; 1: 
3 11 
1! 
; 1! 
; 1} 
$ 11 
8 07 1: 
: 5 08 ,§ + j= 444 — —— 
3 B06 80 — of exception rec.: 
3 B08 ita 1 number of valid records } 
3 809 0804 1: | ewmweeeeeoooooeoeeoccoecce ; 
: Be bb08 1 i fl ( Optional ) Flags t d 
3 ags - ptiona ags longwor 
: 81g OBor 1 i . pets 
: 81 pane 1/ sept teNt Seputes 
; 814 0809 1: 
3; 6815 0810 1! 
3 16 0811 1! Output Parameters: 
3 30 pets 1! none 
: Bie ae Implicit Output 
5 c utputs: 
; 820 0813 TR . 
3 1 38 1: 
; § 817 1 | Routine Value: 
$ 313 1/ none 
; 4 4 1! 
$ 5 ! Routines called: 
: $ 5 § 1 ! Side Effects: 
3 8 1: none 
: 829 41: 
3; 8 5 1i- 
3; 6831 — 1 
38 BEGIN 
; 834 3 ILTIN 
3 5 ACTUALCOUNT 
: ACTUALPARAMETER, 
3 § NULLPARAMETER; 
; #8 LOCAL 
J 


east 


Be Se Se Be Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Fe Ge Ge Se Ge Se SF Ge Gs Ge Ss Se Gs Se Gs Se Se Ge Se Ge Ge Se Ge Se Gee Se Se Sse Se SF Se Se Se Se Seas 


PEPE PEER ee 


2.09 C9 G9 Cd CD CD CD 
DWONANEWN$OVOONOULS WO 


MUMMY 


388 


5 
7 
9 
0 


wonder Ree HEALD 


K 


Ooo —— WOO 


200000000 
oo (69 G0 G9. G0 G0 Go GO 
> VIVAL 
wr 


33 


Oo Gd Cd Go Cd Co C9 CO 
ANN 


DWDONAULWN—O 


22 


DOSOSSOOOOSOOHOOOSOOHSSOSSSSoooO 


14-Sep-1 
STATUS; 
H Set up condition handler 
LIBSESTABLISH ( CONDITION_HANDLER ); 
; Check the order of the call 
IF _ .SEQUENCE NEQ 2 
RETURN CONVS_ORDER 
SEQUENCE = .SEQUENCE + 1; 
Check the number of arguments 
IF ACTUALCOUNT<) GTRU 2 
RETURN CONVS_NARG; 
Were there user flags? 
4 ACTUALCOUNT() EQLU 2 


N 
CONVSAB_FLAGS C CONVSW_USER J] = .ACTUALPARAMETER(2); 


: Clear some variables 

CONVSGB_CURRENT_FILE = 0; 

: If definition then parse it 

if ,COuvseL FOL 

noe = CONVSSPARSE_DEF () 
STATUS = CONVS$_SUCCESS; 

: If all is well continue 


if .STATUS 
THEN 


: Try to Open an Input File 
IF STATUS = CONVSSOPEN_INPUT() 
THEN 
BEGIN 
: Try to Open an Output File 
STATUS = CONVSSOPEN_OUTPUT(); 
: Loop untill error or end 
WHILE .STATUS 
b0 


Bt 8 s-32 V4. ose 


14 

voo-000-” = Convent NER — 3:41:04 YAR Bt fss- 32 yg 
BEGIN 
: Dynamicly Allocate the Record Buffer 
if * ( STATUS = CONVSSCREATE_BUFFER() ) 

EXITLOOP; 
: Convert The File 
4 — ( STATUS = CONVSSCONVERT() ) 

EXITLOOP; 


See soeeRceses 


910 

ai CONVSGB_CURRENT_FILE = .CONVSGB_CURRENT_FILE + 1; 
318 if gC ONVSGB_CURRENT FILE GEQU .CONVSGL_FILE_COUNT 
915 EXITLOOP 

218 ELSE 

318 STATUS = CONVSSOPEN_INPUT() 

91 END 

920 

1 END; 

: § : Close all Open Files and deallocate memory 

4 > RUNDOWN () ; 

i If we got a counter block copy the values into it 

929 if NOT NULLPARAMETER(1) 

9 THEN 

44 BEGIN 

ee LOCAL USER_BLOCK : REF VECTOR C ,LONG J; 

3 5 USER_BLOCK = ACTUALPARAMETER(1); 

aH : Check the size of the block 

939 IF .USER_BLOCK C 0 J GTRU COUNTERS 


STATUS = CONVS$_BADBLK 
ELSE 


: Stuff the counts 
INCR I FROM 1 TO .USER_BLOCK C 0 ) BY 1 
USER_BLOCK C .1 ) = .COUNT_BLOCK C .1 J 


LERLLERLLE 


WN —ODOONOUSWN—O 


END; 
SEQUENCE = 0; 


2222 
An 


14 
c ALL VAX=11 CONVERT 18-Sep-1986 23:4 :0 AX-11 Bliss-32 V4.0-74 p 
von CONVERT VaaeerTBRS FBiFEIS HAKAN Bb ge Vh-Baose age 26 
; $s £38 RETURN .STATUS 3 
; 9 END; 
oonc .ENTRY CONVSCONVERT, Save R2.R3,R4 : 0779 
54 0006 CF 9E p VAB  CONVSGB CURRENT FILE. RG : . 
' 8 by tf . —4 sate AANDLER ? 0839 
000000006 09 1 € 6 CALLS 9* — 
5 sedu NCE, #2 + 0843 
50 000000006 8F i ; 1 MOVL —ACONVS_ORDER, RO : 0845 
63 4 1$: INCB SEQUENC + 0847 
02 ft #1 0 : CHEB (AP), 5 zzzl 
50 000000006 8F 00 ROVL #CONVS_NARG, RO + 0853 
00006 CF 08 bt 88 20 28: NG —BR CONVSAB_FLAGS ; 33 
64 94 00038 33 CLRB = CONVS$GB_CURRENT ~F ILE + 0863 
OA 48 A3 E9 00030 BLBC CONVSGL“FDL, 4 + 0867 
00006 ¢F 99 FB 00041 CALLS #9, CONDSSPARSE_DEF 3 0869 
2 fon| i 
D ES O004E 5$: BLBC US, : 0875 i 
00006 CF é FB 0051 CALLS #0, CONVSSOPEN_INPUT : $880 i 
g 25 BS D008 BLBE STATUS YS 
00006 CF Q F 005¢ CALLS #0, CONVSSOPEN_OUTPUT > 0886 i 
3 D 61 6$: MOVL RO. STATUS : i 
2 52 £9 00064 BLBC STATUS, 7$ : 0890 : 
00006 ct FB 00067 CALLS #0, CONVSSCREATE_BUFFER > 0896 
2 08 06C MOVL RO, STAT 3 i 
iC E O6F BLBC STATUS, 7$ : i 
00006 cf FB 000 2 CALLS #0, CONVSSCONVERT > 0902 i 
i nao N, : 2 
4 96 ° 7D INCB CONV$GB_ CURRENT FILE : i 
53 43 64 08 $3 ED 0007F CMPZV in $66 CURRENT FILE at Fite. - ; $308 
CovSGL_FILE_COONT : 
07 1E 00 5 BGEQU : 
00006 CF Fe f CALLS 0. CONVSSOPEN_INPUT ; 0912 
0000v CF F 7$: CALLS #0, RUNDOWN : 9920 
g 9 TSTB —s._« CAP) + 0924 
1 9 BEQL 173 : 
04 85 88 Boo pear tis 
51 04 aC D 9 VL 4CAP), USER_BLOCK : 0930 
p A PL (USER BLOCKY, * : 09 
9 1B 000A BLEGU 8 : 


14 
CQWVECALL YAK CONVERT 1BsSep-1984 25:41:04 YARN BLiss-32 v4.0-74 


$2 000000006 8F 00 AS MOVL #CONVS_BADBLK, STATUS 
AC BRB 1 
4 CLRL 
: BRB 0$ 
6140 54 A34 09 0082 9$: MOVL  COUNT_BLOCKCI), (USER_BLOCK)CIJ 
F6 50 1 £3 000B8 10$:  AOBLEQ (USER“BLOCK), [. 9$ 


6 

93 94 hee 118: CLRB SEQUENCE 
2 00 00 ef MOVL STATUS, RO 

04 000C RET 


; Routine Size: 194 bytes, Routine Base: _CONVSCODE + O3AA 


50 


> 
c 


14 
—A ——— 


σ 


0000 
SNE 


woono0on0 
22222 
We 


SSSOS 
38 
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ZSBTTL ‘ADD KEY’ 
LOBAL ROUTINE CONVSADD_KEY = 


Functional Description: 
CONVERT/ADD_KEY call interface routine 
Calling Sequence: 
Input Parameters: 
the input f 


e fame 


the fdl file name 
key - Key of reference to add 


which will receive the statistics 


flags 
Implicit Inputs: 
none 


( Optional ) Flags longword 


Output Parameters: 
stat _blk 

Implicit Gutputs: 
none 


Routine Value: 
none 
Routines Called: 


Side Effects: 
none 


Oe tt tt tt tt tt tt tr — — · ——44440 
* 


BEGIN 
ACTUALCOUNT 
ACTUALPARAMETER, 
NULLPARAMETER; 


DEF INE_KEY_DESC_GLOBAL; 


CONVSADD_KEY( file_name_desc,fdl_file_desc,key{,stat_blkIC, flags] ) 


file_mame_desc = Address of 9, String descriptor to be used as 


fdl_tile.desc <= Address of a string descriptor to be used as 


stat_blk - ( Optional ) Address of a block of longwords 


14 
cgmvgggte | yauSN)cowent ieenn zzuz WAS Resided: Sale 
LOCAL 
BYTES 
vM_POINTER, 
STATUS; 
: Set up the exit handler 
LIBSESTABLISH( CONDITION_HANDLER ); 
: Check to make sure convert is not being called 
if SEQUENCE NEQU 0 
RETURN CONVS_ORDER; 
H This call needs at least three arguments and no more then 5 
ACTUALCOUNT() LSSU 3 ) OR ( ACTUALCOUNT() GTRU 5 ) 
RETURN CONVS_NARG; 
: Clear the flags 
CONVSAB_FLAGS = _CLEAR; 
; If the user specified a flags parameter stuff it 
IF ACTUALCOUNT() EQLU 5 
CONVSAB_FLAGS C CONVSW_USER ] = .ACTUALPARAMETER(5); 


ot 


pofoflelelelaleololo} 


20 000 0 WN" OODONOW 


Oooo 


WAIN AIINIPINIPININININYID 2 2 OO OO ee 


WRN = SO OONAULSWN ⏑ o 0 


SEaE 


BDOOOoooococcoooo 


SPW 


: Allocate memory for all of the name block buffers 


SPESPe Lee eososssssssssssss 


SOWNOAE WR BODO 


: The name block 


SNAM_INIT ( NAM = CONVSAB_OUT_NAM, 
ESA = .VM_POIRTER; 


Be Se Se Ge Se Ge Ge Ge Ge Ge Se Se Se Ge Ge Se Ge Ge Ge Ge Seo Se Ge Se Ge Se Ge Se Se Ge Se Se Se Ge Ge Ss Se Se Ge SF Se SH Ss Ss Ge Se Ge Se Ge Se Ge See Se Se Sees 
— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — 
— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — 


8 
3 
1 . 
8 BYTES = ESA_BUF_SIZ + RSA_BUF_SIZ; 
a3 O44 VM_POINTER = CONVSSGET_VM ( .BYTES ); 
04 ! Init the output RMS blocks 
038 Oe? The "el, * 
55 88 i 
36 P 1050 $FAB_INIT ( FAB = CONVSAB_OUT_FAB, 
5 P 1051 FAC = <BRO,GET,PUT> 
38 p 3 FOP = <DFW.NAM,OFP,SQ0>, 
5 P NAM = CONVSAB_OUT_NAM 
34 XAB = CONVSAB~OUT~XABSUM ); 
: 36 ! The RAB 
p SRAB_INIT ( RAB = CONVSAB_OUT_RAB, 
5 P 105 FAB = CONVSAB-OUT-FAB, 
0 ROP = <BI0,WBA> ): 
5 


So 
=sS 
vv 


14 
vor-000 = ADD _KEV NVERT HEScoctgds GEstL:ts WAMU ResaaeAEGST Pome GP 


3 P ESS = ESA_BUF SIZ, 
P RSA = .VM_POINTER + ESA_BUF_SIZ, 
RSS = RSA_BUF SIZ ); 


H The ist argument is the output file name 
IF NULLPARAMETER(1) 
ase ™ CONVS_ILL_VALUE 
CONVSAR_OUT_FILE_NAM = COPY_DESC( ACTUALPARAMETER( 1 ) ); 
} The 2nd argument is the fdl file descriptor 
IF NULLPARAMETER(2) 
æS6 CONVS_ILL_VALUE 
CONVSAR_FDL_FILE_NAM = COPY_DESC( ACTUALPARAMETER( 2 ) ); 
The 3rd argument is the key of ref. to add 
IF NULLPARAMETER(3) 
RETURN CONVS_ILL_VALUE 


CONVSGL_ADD_DELE_KEY = .ACTUALPARAMETER( 3 ); 


Seba euws 


ELS 


SESZSISIEISE 
SBSSSESES TREES 


83 Open the output file 

096 if STATUS = ADDSSOPEN_OUTPUT() 
09 THEN 

098 

099 


: Check the input key and fdl key and make index desc for it 
iF STATUS = ADDS$SCHECK_KEY() 
THEN 


: Load the key into the file 
STATUS = ADDSSLOAD_KEY(); 


LESFELLSS 


AL 
USER_BLOCK : REF VECTOR C ,LONG J; 
Get the user block 


Be Se Se Ge Se Ge Se Ge Ge Ge Fe Se Fe Se Ge Ge Se Ge Ge Ge Ge Se Ge Ge Ge Se Se Se Ge Se Se Ge Se Ge Sse Ge SS Se Be Se Se Se Se Se Ge Se SF Se Ss Se See Se Sseesetee 
— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — 
— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — —— 
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— 
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8 Close the file and deallocate memory 
10 RUNDOWN(); 
\ : If there was a 4th parameter stuff it with the statistics block addr. 
14 if NOT NULLPARAMETER(4) 
13 THEN EGIN 
i * 
15 
3 
1 
2 
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15 
VAX=11 CONVERT 18-Sep-1984 23:41:04  YAX-11 Bliss-32 v4.0-76 
_KEY 12-308-188¢ 93544323 CONV. SRCJCONVCALL .B32; 


; i 4 1 i USER_BLOCK = ACTUALPARAMETER(4); 
3 + 1 i 5 ! Check to see if there really is one 
5 i : 1 3 if ,USER_BLOCK NEQ 0 
; 4 5 1 : 4 BEGIN 
; 1 4 a : 4 INCR I FROM 1 TO .USER_BLOCK C 0 J] BY 1 
: 1139 1133 4 SER_BLOCK C .1 ] = .STATIST 1d 
1138 1133 4 USER_BLOCK C .1 ) = .STATISTICS_BLOCK C .I J 
2 1141 1135 4 END 
: 1148 11 g 4 
We Og * 
> 1145 1139 RETURN .STATUS 
> 1146 1140 
> 1147 1141 1 END; 
OFFC 00000 ENTRY CONVSADD_KEY, Save R2,R3,R%,R5,R6,R7,RB.R9,-; 0953 
58 00006 CF 9€ 90002 MOVAB $RMS PTR, RB : 
57 00006 CF 9E 0000 MOVAB CONVSAB_OUT_NAM, R7 ; 
56 00006 CF 9E 9000¢ MOVAB A : : 
0000v CF 9F 0001 PUSHAB CONDITION HANDLER > 1016 
000000006 00 01 EB 0015 CALLS #1, LIBSESTABLISH ; 
0000° cr 3 dit ists SEQUENCE + 1020 
50 000000006 $f dO 99 2 MOVL #CONVS_ORDER, RO : 1022 
03 6c 91 8 A 1$: CMPBs«CAP), #3 > 1026 
05 1F 0002D BLSSU 2 ; 
05 6c 91 F CMPB sé AP), #5 F 
08 18 2 BLEQU : 
50 000000006 8F 00 0 2s MOVL #CONVS_NARG, RO ; 1028 
00006 CF ps 3$ CLRL  CONVSAB_FLAGS + 1032 
05 6¢ 91 4 8 (AP), #5 > 1036 
00006 CF 146 BC 8 4 MOVW  @20(AP), CONVSAB_FLAGS : 1038 
50 AO BF A 00048 4$: MOVZBL #160, BYTES > 1042 
0.2 GF PUSHL BY > 1044 
00006 1 BSBW © CONVSSGET_VM : 
3B 3 ; ROVE. AG; WR_POINTER ; 
0050 = 8F 00 éE : ze 3A MOVCS 3: (SP), #0, #80, S$RMS_PTR 1054 
6 00 F B mMOVW oft RMS_PTR : 
04 8 21000089 F 5 MOVL — SRMS_PTRe4 ; 
16 A 4 F F MOVE Hi: , $RMS_PTR+ : 
FOO 2 4 MOVE #2, SRMS_PTR+3 : 
24 Ab 00006 CF 9€ 00078 MOVAB CONVSAB_OUT_XABSUM, SRMS_PTR+36 : 


at oe 


Bete Ge Ge Se Ge Se Ge Se Se Se Ge Be Ge Ge Se Fe Ge Se Se Se Ge Fe Se Fe Se Se Ge Se Se See Se Se Se Se Se Se Se Se Se Sees teas 


CONVSCALL 
vou-000 
0044 8f 
0060 8F 


3; Routine Size: 


VAX=11 CONVERT 
ADD_KEY 
00 


00 


F5 


318 bytes, 


1 
1 
28 46 7 9€ 7 
6E 8 Hi ; 
6 4401 F g0 4 
9 A 0c00 F 3C F 
Cc )hUOA 8 E 5 
6E C mB 
67 600 er & 
02 A? fi F 80 46 
04 A? 28 AB 9 
OA A? 5 oF 9 B 
Oc A? B D B 
gf 9 089 
1 13 00088 
04 AC 05 0008D 
2c 13 000C 
50 046 AC 8 00C 
0000V 000C 
0000G CF 50 00 000C9 
02 6C 91 OO0CE 
1B 1F 000D1 
08 AC 0 0003 
16 13 00006 
50 08 AC 4 00008 
0000v 30 000DC 
0000G CF 50 00 O00DF 
03 6C 91 O00E4 
05 1F OO0E7 
OC AC 05 OO0E9 
08 12 OOOEC 
50 00000000G 8F 909 Bore 
04 O00F 
0000G CF OC BC DO 000F6 
0000G CF 38 Fe QOOFC 
52 Q 00 00101 
OF 52 53 0104 
worse 0 4 7 
52 DO O010A 
06 5 53 01 
00006 8 ati 
52 50 DO 0011 
0000v J 90 FB 00116 
4 of 91 00118 
A 1€ 0011 
10 AG D 1 
15 1 1 
51 10 aC OD 1 
F 1 1 
9 9 128 
1 0012D 
614 Q0000'CF40 D 12F 
5 $2 0 O018A 
4 001 
Routine Base: _CONVSCODE + 046C 
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1986 93:73:27 


AX-11 Ol fase se V4.0-74 
CONV. SRCIJCONVCALL .B32; 


CONV$AB_OUT_NAM, SRMS_PTR+40 
i. (SPY, #0, #68, SRAS_PTR 


#70” SRMS_PTR 
* 


07 4 
CONV SRMS_PTR+60 
io, (SPT, #0, #96, 3mMS_PTR 


424578 SRMS_PTR 
#80, S$RMS_PTR+2 
80(R11), SRMS_PTR+4 

0, $RMS_PTRF 

M POINTER, SRMS_PTR+12 


> 
wv 
— 


RO 
ESC 
CONYSAR_OUT_FILE_NAM 
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> 
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~ 


>, RO 


DESC 
TONVSAR_FDL_FILE_NAM 
P), #3 


(AP) 
#CONVS_ILL_VALUE, RO 


@12(AP), CONVSGL_ADD_DELE_KEY 
#0, ADDS$SOPEN_OUTPUT 
RO. STATUS 


22 
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STATUS, 7$ 
ADDSSCHECK_KEY 
RO, STATU 
STATUS, 7 
ADDSSLOAD_KEY 
RO, STATUS 


#0. RUNDOWN 
(AP), #4 
10$ 


16(AP) 
ICAP), USER_BLOCK 
10$ 


* 
STATISTICS BLOCKCIJ, (USER_BLOCK)CI) 
(USER BLOER). I, 8$ 

STATUS, R 


1068 


VAX=11 CONVERT 
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pBodeont9gs 25:44 04 
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-32 V4.0-74 
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VAX-11 CONVERT 


RECLAIM 


ALL 


Cc 
Vv 


which will receive the statistics 


the input file name 
- ( Optional ) Address of a block of longwords 


- Address of a string descriptor to be used as 


- ( Optional ) Flags longword 


CONVSRECLAIM( file_name_descC,stat_blkIJC, flags] ) 


CONVERT/RECLAIM call interface routine 
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RECLAIM 14-Sep-1 


DEF INE_BUCKET_GLOBAL; 
DEFIN “ey Y_DESC_GLOBAL; 


LOCAL 
STATUS; 


H Set up the exit handler 
LIBSESTABLISH ( CONDITION_HANDLER ); 
: Check to make sure convert is not being called 


CONV. SRCIJCONVCALL .832; 


ow 
— 


wm 


— 2— — — 4 — — — 


PUN SO DOo MO Ore — 


RECLSGL—INDER_COUNT = “CLEAR: 


: Was user flags specified 
if ACTUALCOUNT() EQLU 3 


7 if SEQUENCE NEQU 0 
18 RETURN CONVS_ORDER; 
1? } Check on the number of arguments 
iH iF ( ACTUALCOUNT() LSSU 1 ) OR ( ACTUALCOUNT() GTRU 3 ) 
13 RETURN CONVS_NARG; 

1 : Clear the flags and counters 

5 conv VSAB_FLAGS = _CLEAR; 

4 RECLSGL_| “bicker COUNT = CLEAR; 

é RECLS$GL_DATA_ COUNT CLEAR; 

: 
3 CONVSAB_FLAGS C CONVSW_USER ] = .ACTUALPARAMETER(3); 
8 Open the file 
as IF NULLPARAMETER(1) 
8 — CONVS_ILL_VALUE 
ri RET_ON_ERROR( RECLSSOPEN_FILE( ACTUALPARAMETER(1) ) ); 
i : Get the first key 

1 


IF ( STATUS = CONVSSSET_KEY_DESC( 0 ) ) 
THEN 


: Process the keys 

dO 
BEGIN 
! if the index is not initialized don't try to do anything 
: with it 
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iF NOT .KEY_DESC C KEYSV_INITIOX J 
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THEN 
BEGIN 


Allocate bucket buffers and the context block 
J NOT ( STATUS = RECLSSALLOCATE_BUFFERS() ) 
EXITLOOP; 
Scan the data level buckets and remove the empties 
NOT ( STATUS = RECLSSSCAN_DATA_LEVEL() ?} 
EXITLOOP; 
; Deallocate memory used foe the bucket buffers 
CONVSSFREE_TEMP_VM() 
END * 
UNTIL NOT CONVSSGET_NEXT_KEY(); 
; Close the file and deallocate memory 
RUNDOWN () ; 
: If there was a second parameter stuff it with the statistics block addr. 
IF NOT NULLPARAMETER(2) 
THEN 
BEGIN 


LOCAL 
USER_BLOCK : REF VECTOR C ,LONG J; 


Get the user block 

USER_BLOCK = ACTUALPARAMETER(2); 

: Check to see if there really is one 

IF .USER_BLOCK NEQ 0 

THEN 
BEGIN 
: Stuff the total bucket count 
STATISTICS_BLOCK C 4 J] = .RECLSGL_DATA_COUNT + .RECLSGL_INDEX_COUNT; 
INCR I FROM 1 TO .USER_BLOCK C 0 J BY 1 

USER_BLOCK C .1 J] = .STATISTICS_BLOCK C .1 J 

END 

END; 
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3 3 1 131 

3 3 131 RETURN .STATUS 
3; 1 ¢ 131 

31 1316 END; 


OFFC 00000 ENTRY CONVSRECLAIM, Save R2,R3,R4,R5,R6,R7,RB,RI, =; 

53 9000" CF ge VAB_—- RECLSGL INDEX COUNT, R3 : ‘ 

v cf F PUSHAB CONDITION HAN ANDLER : i 

000000006 00 F CALLS # LIBSESTABLISH : i 
8c (AS C9 TSTB SEQUENCE : i 

g 1 BEQL 1 : i 

50 000000006 8F i? MOVL #CONVS_ORDER, RO : : 

at ue? ; 7 

03 ¢ 91 CMPB sé), #3 : : 

18 BLEQU : i 

50 000000006 8F 20 ROVL WCONVS_NARG, RO F i 

00006 CF b4 CLRL  CONVSAB_F : ; 

F8 a3 ¢ CLRQ = RECLSGL~ “BUCKET COUNT ; i 

6 ps CLRL = RECLSGL~INDEX_COUNT ; : 

03 6c (91 CMPB sé), #3 ; : 

06 1 NEQ 4$ ; : 

00006 CF oc BC VW @12(AP), CONVSAB_FLAGS : : 
6¢ TSTB  —s_ CAP?) ; ; 

5 Y EQL 5$ $ 3 

04 ac D TSTL 4(AP) : : 

ge 1 BNEQ 6$ $ 3 

50 000000006 8F B60 MOVL #CONVS_ILL_VALUE, RO ; F 

04 AC DD PUSHL  4(AP) : : 

00006 ct gi FB CALLS #1 RECLESOPEN. FILE ; : 
A 0 € BLBC ST TATUS, 13$ ; ; 

43 ps4 CLRL Bye : ; 

00006 BSBW = _KEY_DESC : : 

5 R ¢ ADDL2 . SP : : 

5 D MOVL RO. STATUS : : 

2 E BLBC status $ : : 

15 10 AB 5 BBS B4, 16(KEY_DESC), 8$ : F 
00006 BSBW Roy gtatyge -OUrFeRS F : 

52 D MOVL RO, STATUS : ‘ 

1 5 BLBC Ss SS TATUS $ 3 i 

00006 BSBW RECLSSS SCAN_DATA_LEVEL ; i 

3 0 MOVL 3 ; 

BLBC Os ST wis, : 

99 G BSBW CONV FREE TEMP_VM ; 

* ẽ 5 CONVSSGET. REXT_REY ; 

0000v CF Fe CALLS ; 4) RUNQOWN : 
2 ¢ 9 CMPB (AP) 3 

F iF BLSSU-12$ F 


coe 


3; Routine Size: 


VAX=11_ CONVERT 
RECLAIM 


046 43 
F6 
187 bytes, 


51 
FC AS 


“a 


Routine Base: 


bet 


08 
08 
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0 04 
st 


-CONVSCODE + OSAA 


1986 §3:94:85 


V4.0-74 


AX-11 BL 
(tin veal L.B32; 


CONV. SRC 
gap) 
re ), USER_BLOCK 

INDEX COUNT, RECLSGL_DATA_COUNT, 
StTcsBLOEK+16" 


TISTICS BLOCKLIJ, (USER_BLOCK)C1) 
ER BL LOCR), I, 108 
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ZSBTTL_ ‘RUNDOWN’ 
ROUTINE RUNDOWN : NOVALUE = 
! Functional Description: 

Close all open files and deallocate memory 
Calling Sequence: 

RUNDOWN () 
Input Parameters: 

none 


Implicit Inputs: 
none 

Output Parameters: 
none 

Implicit Outputs: 
none 

Routine Value: 
none 


Routines Called: 
SDISCONNECT 
$c 


L 
CONVSSFREE_TEMP_VM 
CONVSSFREE_VM 


Side Effects: 
Closes all files and deallocates memory 


BEGIN 

: Clear the sequencing so we can start over again 
SEQUENCE = 0; 

: Free any miscellaneous memory held by LIBSFIND_FILE 
LIBSF IND_FILE_END(CONVSGL_FINDFILE_CTX); 

; Close any open files 

: Start with input file and RFA file 

CONVSSEND_OF _FILE(); 

! Output File 


AX-11 Blis 
CONV.SRCIC 


if 


s-3 
SNVEALL 032: 


15 
cots. agro 1E-Sep-19R4 23:41:04 yay-tt BL fe8-52 v4.0-74 Page 40 
if, .CONVSAB.FLAGS {C CONV$V_OUT J 
BEGIN 


If we're doing a FIN --> STM conversion, then we 
: need to flush our STM buffer now. 


IF, CONVSAB_FLAGS C CONVSV_MAPFIN J EQL CONVSC_FTNSTM 


we 


BEGIN 
CONVSGW_OUT_REC_SIZ = «CONYSGL STH REC_LEN: 
CONVSAB~OUT~RAB~ RABSLRBF TCONVSGL-STM_ BUF ; 
CONVSSPOT RECORD ( 


SDISCONHECT( — OUT_RAB ); 
FAB=CONVSAB_OUT_FAB J; 


Sesss 
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8 If an Exception file was used close it 
tog if .CONVSAB_FLAGS C CONVSV_EXC J 
tos —E BEGIN 
406 $SDISCONNECT( RAB=CONVSAB_ EXC_RAB ); 
407 SCLOSE( FAB=EXC_FAB ) 
408 END; 
2i9 : Deallocate any loose memory floating around 
ie CONVSSFREE _TEMP_VM(); 
413 CONVSSFREE_VM()? 
415 RETURN 
“19 END: 
«EXTRN SYSSDISCONNECT, SYSSCLOSE 
OFFC 99 RUNDOWN: .WORD Save R2,R3,R4,R5,R6,R7.RB,R9,R10,R11 : 1318 
006 CF 9E 000 MOVAB —30.5 FLAGS*+2, R4 : 
33 9000 G 9 9e 90 MOVAB SYSSCLOSE, : 
G 00 i HOVAB SYSSD1SCOnNECT. R2 3 1361 
0006 CF 9F 0001 PUSHAB V ae FINDFILE_CTX : 1365 
000000006 00 1 FB 1p CALLS Eon L1BSE ND FILE END : 
2A — 2 96 ger 1 — — — 28 1373 
02 64 83 f § CHEZV #7. 2. CONTSAB SFLAGSSS, #2 31 3 
G CF 90006 CF B MOVW tonvsce STM_REC_LEN, CONVSGW_OUT _REC_SIZ  ; 1385 
¢ fF F OD VL #0. eanosspor Recon cun. or 31 
000000006 60 FB CALLS nSsPOr é 31 
00006 cf 9F 00049 1$: PUSHAB CONVEAB : 1389 
62 1 FB CALLS SyeSO1SCONNECT : 


c ALL VAX-11 CONVERT i -Sep-1 :4 AX-11 Bliss-32 V4.0-742 | P 41 
-Sep- v. VCALL. 
iad te RUNDOWN 14 sep 1382 $3 13; 9% YON SRCJCONVCALL B32; | — 
00006 i 9 : PUSHAB ¢ Ot FAB : 
OE g 3 ; 28: BBC SAGAS FLAGS*2, 3$ : 
00006 CF SF B PUSHAB CONVSAB C"RAB : 
62 1 §B f CALLS # SYESBISCONNECT : 
0000" CF 9F PUSHAB Ext_FAB ; 
63 1 CALLS #1, SYSSCLOSE : 
99 G 3$: BSBW © CONVSSFREE_TEMP_VM : 
G 0 C BBW CONVSSFREE_VM : 


; Routine Size: 112 bytes, Routine Base: _CONVSCODE + 0665 
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DOK UM ~T NOR OD eae dal POS OS OS OS OK INT NON OO OK— On DO OSOr eniswn 
ROI IUAI IIAP MAPA MIE ob oo ore oe or oe MNNANANNMNNNDOO00DOD0DO0DOCRARARA 
SIFT IF TIF ITIFS IT IFS IFT IFFT AAATAA AGA AAA AAA AAA AAT AAAI AIT SAIS 


ee el el el eh ee el el ee el ee eel ee nel eh ee eh ee eh el eh lh ed eh ee ek ek ek peek ek ek ed ek el ek ee ed el el cel el oh ol el ed el el el ed el — 


1 OWVERT fPoBeo-196e @$:41:04  YARGtT Bt fng=82 4.027 Page fi 
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: 14 
; 147 14 
: 1? 1? } Do we signal errors or just return 
: 146 147 iF -.CONVSAB_FLAGS C CONVSV_SIGNA 
3 14 147 Hew es © atom, 4 
: 14 ¢ 14 BEGIN 
3 14 1478 IF. CONDITION. CODE C STSSV_SEVERITY J] EQL STSSK_SEVERE 
> 1485 1476 RUNDOWN () ; 
: 14 147 
: 14 1478 ELSE 
: 14 14 IF .CONDITION_CODE C STSS$V_SEVERITY j EQL STSSK_SUCCESS 
3 14 18} OR CONDITION. CODE C STSSVISEVERITY } EQL STSSK-INFO 
: 1491 1486 NRETURN SS$_CONTINUE 
3 1238 14 4 LIB$SIG_TO_RET ( .SIGNAL_VECTOR, .MECH_VECTOR ); 
1496 +? If a signal then call resignal 
: 149 1488 RETURN SS$_RESIGNAL 
: 1498 1489 
: 1499 1490 END; 
000C 00000 CONDITION_HANDLER: 
.QORD Save R2,R3 : 1411 
53 04 ac dO 00002 MOVL § SIGNAL_VECTOR + 1458 
52 4 A3 DO 00006 MOVL ARS) “CONDI Fiot CODE : 
00000920 = &F 52 D1 OO00A CMPL  CONDITION_C CODES 92336 + 1462 
0c 13 00011 BEQL «=s«1$ : 
of 00006 CF €9 0013 BLBC  CONVSAB_FLAGS + 1471 
04 52 0 9 FD 001 CMPZ7vV #0, #3, ~tbNGT TION CODE, #4 + 1474 
12 00010 BNEQ 5$ : 
FF6C CF 0 re OO1F 1$ CALLS #0, RUNDOWN + 1476 
it 1 6 4 BRB + 1471 
01 52 03 99 ED 6 2$ CMP ZV #0, #3, CONDITION_CODE, #1 ; 1479 
03 52 03 ae 2 8 cMPZV #0. #3, CONDITION_CODE, #3 : 1480 
50 1 p 0 3$: MOVL #1, RO + 1482 
4 7 RET : 
08 AC OD 4$: PUSHL MECH_VECTOR + 1484 
000000006 i PB CALLS : 1B$S1G_TO_RET ; 
98 0918 + «8F zt 8 5$ MOVZWL # $25: 8 — > 1488 
4 RET > 1490 
; Routine Size: 74 bytes, Routine Base: _CONVSCODE + 0605 
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TL. ‘COPY DESC’ 
INE COPY_BESC ( DESC ) : CLSCOPY_DESC = 


BEGIN 
LOCAL 
YTES : LONG, 

LENGTH : LONG, 

BUFFER : REF VECTOR C ,BYTE_J, 

COPY_DESC : REF BLOCK C ,BYTE 2; 
GLOBAL REGISTER 

ADDRESS = 1 : LONG; 


LENGTH = STRSANALYZE_SDESC_R1( .DESC ); 
Allocate a vm for a descriptor and a copy of the users string 
BYTES = .LENGTH + 8; 

: Get the address of the descriptor 
COPY_DESC = CONVSSGET_VM( .BYTES ); 

} The string is just past that 

BUFFER = .COPY_DESC + 8; 

Stuff length 

COPY_DESC C DSCSW_LENGTH J] = .LENGTH; 
Stuff address 

COPY_DESC C DSCSA_POINTER ] = .BUFFER; 
: Copy the user string 

CHSMOVE( .LENGTH, .ADDRESS, .BUFFER ); 
Return address of descriptor 

RETURN .COPY_DESC 

END; 


007C 8F 8B 00000 COPY_DESC: 
000000006 Q 16 

3 R Le 
08 A2 9E 8(R2), BYTES 


J 
oh novi 
5 1 PUSHL BYTE 
00006 86 90015 BSBW CONVSSGET_VM 


CONV. SRC 


PUSHR #*M<R2,R3,R4,R5,R6> 
SB STRSANAL YE _SDESC_R1 


CONVSCALL VAX=-11 CONVERT —* -1 24 AX-11 Bliss-32 V4.0-74 
—W COPY_DESC 127808- 1382 93: i Fi CONV. skein VEAL L.832; 
4 ¢ 1 8* #4, SP 
9 § 18 RO, COPY _DESC 
i 08 A 5 1 MOVAB 8(R6), BOFFER 
66 8 MOVW LENGTH, (COPY_DESC) 
04 A6 3 MOVL BUFFER, 4(COPY_DESC) 
60 gf MOVC3 LENGTH, (ADDRESS), (BUFFER) 
0 D0 a MOVL COPY DESC, R 
007C¢ F BA 8 POPR #°M<R2,R35,R4,R5,R6> 
5 RSB 
3; Routine Size: 51 bytes, Routine Base: _CONVSCODE + 071F 
: 1547 1537 1 
3 1548 1538 0 END ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
; _CONVSOWN 206 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
: —CONVSPLIT NOVEC ,NOW RT, RD, NOEXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 =CONVSCODE 1874 NOVEC;NOWRT, RD. EXE, SHR, LCL. REL, CON, PIC,ALIGN(2) 
3 Library Statistics 
Be yt Fe Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: -$255$DUA28: CSYSLIBILI 18619 114 0 1000 00:01.9 
; 7$255$DUA28:CCONV.SRCI ohveRt. L32;1 165 25 15 17 00:00.2 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:CONVCALL/OBJ=0BJ$:CONVCALL MSRCS$:CONVCALL/UPDATE=(ENHS$: CONVCALL) 


Size: : 1874 a7 + 208 data bytes 


Lexenes/CPU-Rin: a 
ry Us : 297 pages 
Compi Bs Complete 
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DIG 
CON 
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